home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / wb / M2I5_76.lha / M2I5_76 / Rexx / Play.M2I < prev    next >
Encoding:
Text File  |  1998-03-24  |  175 b   |  18 lines
  1. /* playing a sound */
  2.  
  3. OPTION RESULTS
  4. ADDRESS "M2IPort.Rexx"
  5.  
  6. SOUND="sounds/test.snd"
  7.  
  8.  sound on
  9.  PIPO=RC
  10.  
  11.  playfile "'"SOUND"'"
  12.  
  13.  IF PIPO~=5 THEN DO
  14.     sound off
  15.  END
  16.  
  17. EXIT
  18.